home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / AbStartTCP.lha / StartTCP next >
Text File  |  1996-12-06  |  1KB  |  63 lines
  1. execute StartTCP
  2. requestchoice >env:AbcsServer "ABCS AmiTCP setup" "Select server" "Server1" "Server2" "Server3" "Server4" "Server5" "Local"
  3.  
  4. Failat 2560
  5. copy AmiTcp:db/resolv.conf.$AbcsServer AmiTCP:db/resolv.conf
  6. cd AmiTcp:Dialup
  7.  
  8. if $AbcsServer EQ "1"
  9.   rx >nil: AbDial.rexx login1.scr
  10.   if not warn
  11.     if exists env:AbcsIP
  12.       echo >env:AbcsLastTCP "1"
  13.       AmiTCP:bin/StartNet1 $AbcsIP
  14.     endif
  15.   endif
  16. endif
  17.  
  18. if $AbcsServer EQ "2"
  19.   rx >nil: AbDial.rexx login2.scr
  20.   if not warn
  21.     echo >env:AbcsLastTCP "2"
  22.     AmiTCP:bin/StartNet2
  23.     echo >env:AbcsIP $PPP0IPLocal
  24.   endif
  25. endif
  26.  
  27. if $AbcsServer EQ "3"
  28.   rx >nil: AbDial.rexx login3.scr
  29.   if not warn
  30.     echo >env:AbcsLastTCP "3"
  31.     AmiTCP:bin/StartNet3
  32.     echo >env:AbcsIP $PPP0IPLocal
  33.   endif
  34. endif
  35.  
  36. if $AbcsServer EQ "4"
  37.   rx >nil: AbDial.rexx login4.scr
  38.   if not warn
  39.     echo >env:AbcsLastTCP "4"
  40.     AmiTCP:bin/StartNet4
  41.     echo >env:AbcsIP $PPP0IPLocal
  42.   endif
  43. endif
  44.  
  45. if $AbcsServer EQ "5"
  46.   rx >nil: AbDial.rexx login5.scr
  47.   if not warn
  48.     echo >env:AbcsLastTCP "5"
  49.     AmiTCP:bin/StartNet5 $AbcsIP
  50.   endif
  51. endif
  52.  
  53. if $AbcsServer EQ "0"
  54.   AmiTCP:bin/StartNet0
  55. endif
  56.  
  57.  
  58. copy >nil: env:AbcsIP envarc:AbcsIP
  59. copy >nil: env:AbcsLastTCP envarc:AbcsLastTCP
  60.  
  61. ; ABCS AmiTcp startup ...
  62.  
  63.